home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / moni / LAlert.lha / LAlert / Alert.s < prev    next >
Text File  |  2002-05-07  |  1KB  |  32 lines
  1. *****************************************************************************
  2. *                                        *
  3. *       PART: Alert                                *
  4. *    VERSION: 1.0                                *
  5. *   SOURCE CODE: 1                                *
  6. *       DATE: 3.5.2002                            *
  7. *      LANGUAGE: Assembler (DevPac V3.14)                    *
  8. *     SYSTEM: A1200    KS 40.68 WB 40.42 2MB chip 64MB fast 68030/50mhz    *
  9. *                                        *
  10. *     AUTHOR: Joerg Riemer 14167 Berlin/SchottmuellerStr.107/Germany        *
  11. *      EMAIL: joerg_riemer@freenet.de / mission@cs.tu-berlin.de         *
  12. *                                        *
  13. *     COMMENT: Alert creates a recoverable guru meditation just for        *
  14. *         testing LAlert. see LAlert.s for more information.        *
  15. *                                        *
  16. *****************************************************************************
  17.  
  18.         move.l    #"HELP",D7
  19.         lea    array(pc),A5
  20.  
  21.         movea.l    4.w,A6
  22.         jsr    -108(A6)
  23.  
  24.         moveq    #0,D0
  25.         rts
  26.  
  27. *****************************************************************************
  28.  
  29. array        dc.l    -1
  30.  
  31.  end of source **************************************************************
  32.